
 1000  *---------------------------------
 1010  *      MACHINE-GUN NOISE
 1020  *---------------------------------
 1030  SPEAKER    .EQ $C030
 1040  CNTR       .EQ $00
 1050  *---------------------------------
 1060  NOISE  LDX #64      LENGTH OF NOISE BURST
 1070  *---------------------------------
 1080         LDA #10      NUMBER OF NOISE BURSTS
 1090         STA CNTR
 1100  .2     LDA SPEAKER  TOGGLE SPEAKER
 1110         LDY $BA00,X  GET PULSE WIDTH PSEUDO-RANDOMLY
 1120  .1     DEY          DELAY LOOP FOR PULSE WIDTH
 1130         BNE .1
 1140         DEX          GET NEXT PULSE OF THIS NOISE BURST
 1150         BNE .2
 1160         DEC CNTR     GET NEXT NOISE BURST
 1170         BNE .2
 1180         RTS          RETURN

